Private Sub Command1_Click()

  Dim s As String, c As String, d As String

  Dim n As Integer, b1 As Integer, b2 As Integer, v As Integer, i As Integer

  s = Text1.Text: n = Len(s): i = 1

  Do While i <= n

    c = Mid(s, i, 2)

    If c = "00" Then

      d = "东"

    ElseIf c = "01" Then

      d = "南"

    ElseIf c = "10" Then

      d = "西"

    Else

      d = "北"

    End If

    b1 = Val(Mid(s, i + 2, 1))

    b2 = Val(Mid(s, i + 3, 1))

    v =

    List1.AddItem d + " " + Str(v)

  Loop

End Sub