B4R Question Send ASCII chrs

AStream.Write(Array As Byte(2, 4))

    If Buffer ="setup" Then
        ser.Write("__________")
        ser.Write("pu - pokaz ustawienia")
        ser.Write("cxx - czas czujki")
    End If

astream.Write(ArrayAs Byte(10))

    If Buffer ="setup" Then
        Dim eol() As Byte = Array As Byte(13, 10)
        ser.Write("__________".GetBytes)
        ser.Write(eol)
        ser.Write("pu - pokaz ustawienia".GetBytes)
        ser.Write(eol)
        ser.Write("cxx - czas czujki".GetBytes)
        ser.Write(eol)
    End If

__________
pu - pokaz ustawienia
cxx - czas czujki

astream.Write(Array As Byte(10))

If Buffer ="setup" Then
        ser.Write("__________")
        ser.Write("pu - pokaz ustawienia")
        ser.Write(Array As Byte(10))
        ser.Write("cxx - czas czujki")
  End If