[RESOLVED] how do you call a sub using winsock

[flyhigh]

when i type ng and send it .ng shows up in view.txt box..
but it doesnt call the sub test1 .
thanks

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim msg As String
Winsock1.GetData msg
view.Text = view.Text & "Server: " & msg & vbCrLf

'// Code for the game
    Select Case Left(msg, 2)
    
    Case "NG"
        'Call sub_reset_game
         Call sub_test1
    Case "PX"
        'Call sub_place_XorO(msg)
    
    Case "PO"
        'Call sub_place_XorO(msg)
        
    Case "OG"
        'Call sub_WhoAmI(msg)
        
    Case "TR"
        'Call sub_MyTurnOnNot(msg)
    End Select

End Sub