Перевести код с Visual Basic 6.0 - Visual Basic .NET

Формулировка задачи:

                    Листинг программы
                
 
                            
                        
Dim mytext As String
Dim allmytext As String
 
Private Sub Command1_Click()
Picture1.Cls
Dim D As Long, W As Long, J As Long, H As Long, S As String
S = RichTextBox1.Text
W = NumWord(S)
D = NumDigit(S)
J = Jumla(S)
H = Harf(S)
Picture1.Print "Микдори калимахо = " & W
Picture1.Print "Микдори ракамхо = " & D
Picture1.Print "Микдори чумлахо = " & J
Picture1.Print "Микдори харфхо = " & H - J
End Sub
 
Private Function NumDigit(ByVal Value As String) As Long
Value = Trim$(Value)
    For p = 1 To Len(Value)
        cuchar = Mid$(Value, p, 1)
        NumDigit = NumDigit - (cuchar >= "0" And cuchar <= "9")
    Next
End Function
 
Private Function NumWord(ByVal Value As String) As Long
Dim p As Long, curword As String, cuchar As String
 
Value = Trim$(Value)
    For p = 1 To Len(Value)
        cuchar = LCase(Mid$(Value, p, 1))
        If (cuchar >= "a" And cuchar <= "z") Or (cuchar >= "а" And cuchar <= "я") Then
        curword = curword & cuchar
        Else
        NumWord = NumWord - (Len(curword) > 0)
        curword = vbNullString
        End If
    Next
End Function
 
Private Function Jumla(ByVal Value As String) As Long
Value = Trim$(Value)
    For p = 1 To Len(Value)
        cuchar = Mid$(Value, p, 1)
        Jumla = Jumla - (cuchar = ".")
    Next
End Function
 
Private Function Harf(ByVal Value As String) As Long
Value = Trim$(Value)
    For p = 1 To Len(Value)
        cuchar = Mid$(Value, p, 1)
        Harf = Harf - (cuchar >= ".")
    Next
End Function
 
Private Sub Command2_Click()
allmytext = ""
a = FreeFile
Open App.Path & "\23.txt" For Input As #a
 
Do Until EOF(a)
 
Line Input #a, mytext
 
allmytext = allmytext + mytext + vbCrLf
Loop
RichTextBox1.Text = allmytext
Close #a
 
End Sub

Решение задачи: «Перевести код с Visual Basic 6.0»

textual
                            Листинг программы 
                        
 
                            
                        
Public Class Form1
    Dim mytext As String
    Dim allmytext As String
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = "Микдори калимахо = " & NumWord(TextBox1.Text) & vbCrLf & _
        "Микдори ракамхо = " & NumDigit(TextBox1.Text) & vbCrLf & _
        "Микдори чумлахо = " & Jumla(TextBox1.Text) & vbCrLf & _
         "Микдори харфхо = " & (Harf(TextBox1.Text) - Jumla(TextBox1.Text))
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        allmytext = IO.File.ReadAllText(Application.StartupPath & "\123.txt", System.Text.Encoding.Default)
        TextBox1.Text = allmytext
    End Sub
 
    Function NumDigit(ByVal Value As String) As Integer
        Value = Trim$(Value)
        Dim cuchar
        For p = 1 To Len(Value)
            cuchar = Mid$(Value, p, 1)
            NumDigit = NumDigit - (cuchar >= "0" And cuchar <= "9")
        Next
    End Function
 
    Function NumWord(ByVal Value As String) As Integer
        Dim p As Long, curword As String, cuchar As String
 
        Value = Trim$(Value)
        For p = 1 To Len(Value)
            cuchar = LCase(Mid$(Value, p, 1))
            If (cuchar >= "a" And cuchar <= "z") Or (cuchar >= "а" And cuchar <= "я") Then
                curword = curword & cuchar
            Else
                NumWord = NumWord - (Len(curword) > 0)
                curword = vbNullString
            End If
        Next
    End Function
 
    Function Jumla(ByVal Value As String) As Integer
        Value = Trim$(Value)
        Dim cuchar
        For p = 1 To Len(Value)
            cuchar = Mid$(Value, p, 1)
            Jumla = Jumla - (cuchar = ".")
        Next
    End Function
 
    Function Harf(ByVal Value As String) As Integer
        Value = Trim$(Value)
        Dim cuchar
        For p = 1 To Len(Value)
            cuchar = Mid$(Value, p, 1)
            Harf = Harf - (cuchar >= ".")
        Next
    End Function
End Class