Need help :)

Hvordan får jeg det her til at virke??:

Public Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
    Dim strData As String
    tcpServer.GetData strData
If strDataord1 = \"ip\" then
    iplabel.Caption = strDataord2
ElseIf strDataord1 = \"hostname\" then
    hostnamelabel.Caption = strDataord2
End If
End Sub