Spanish Enviar un entero por puerto serie

Sub Serial1_Connected (Success As Boolean)
   If Success Then
      ToastMessageShow("Connected successfully", False)
      TextReader1.Initialize(Serial1.InputStream)
      TextWriter1.Initialize(Serial1.OutputStream)
      Timer1.Enabled = True
      connected = True
      lblEstadoBT.Text = "CONECTADO"
      RemoveViews
      Activity.LoadLayout("Motor")
   Else
      lblEstadoBT.Text = "Error de conexión" & CRLF & "Inténtelo de nuevo"
      connected = False
      Timer1.Enabled = False
      Msgbox(LastException.Message, "Error connecting.")
   End If
End Sub

Sub skbVelocidad_ValueChanged (Value As Int, UserChanged As Boolean)
   
    If (Value < 50) Then
        TextWriter1.WriteLine("p")
        TextWriter1.Flush
    Else If (Value > 50) Then
        TextWriter1.WriteLine("m")
        TextWriter1.Flush
    End If

End Sub