مساعدة في تحويل كود من vb6 إلى vb.net 2003

Dim x As String
Dim k As Byte
Private Sub Form_Load()
x = InputBox(" please enter the key ")
If (Asc(x) < 48) Or (Asc(x) > 57) Then
MsgBox (" invalid key ! Please Enter Numeric Key ")
x = InputBox(" please enter the key ")
Else: k = x
Label2.Caption = " Your Key is : " & k
End If
End Sub
Private Sub Text1_Change()
If Text1.Text = " " Then
Text2.Text = " "
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Label1.Caption = " you enterd ( " & Chr(KeyAscii) & " ) and it's
ASCII code is ( " & KeyAscii & " ) "
Text2.Text = Text2.Text & Chr ( KeyAscii Xor k )
End Sub