Private Sub Command1_Click()
          MsgBox getIP
End Sub