Public Class Form1
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        Dim IP As String
        IP = Me.TextBox1.Text
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Shell("cmd.exe", AppWinStyle.NormalFocus)
 
My.Computer.Keyboard.SendKeys("22", True)
 
    End Sub
End Class