' Imports System.IO

Private Sub CommandButton1_Click()
    Dim a, d As String
    Dim k, n, ns, nm, r, t, p As Integer
    Dim m() As String
    Dim v(), s() As Variant
    ns = 0: nm = 0: r = 0: t = 0: p = 0

    ' a = InputBox("Enter a number: ")
    a = My.Computer.FileSystem.ReadAllText("Текст1.txt", System.Text.Encoding.UTF8)
    ' a = ReadFromFile("Текст1.txt")
    n = Len(a)
    ReDim m(n - 1)
    ReDim v(n - 1)
    ReDim s(n - 1)

    For k = 0 To n - 1
        m(k) = Mid(a, k + 1, 1)
        Next k

    For k = 0 To n - 1
        If m(k) Like "[A-Z]" Or m(k) Like "[a-z]" Then
            ns = ns + 1
            v(r) = k
            r = r + 1

        ElseIf m(k) Like " " Or m(k) Like "." Then
            p = p + 1

        Else
            nm = nm + 1
            s(t) = k
            t = t + 1
        End If
    Next k

    If ns >= 1 Then
        For n = 0 To (ns - 1)
            m(v(n)) = "4"
            Next n
    Else
        For n = 0 To (nm - 1)
            m(s(n)) = "4"
            Next n
    End If

    For k = 0 To Len(a) - 1
        d = d & m(k)
        Next k

    MsgBox (d)
    ' WriteToFile("Текст2.txt", d)

End Sub


' Private Function ReadFromFile(ByRef fileName As String) As String
'     Dim fileReader As StreamReader
'     Dim readedString, buffer As String

'     fileReader = New StreamReader(fileName)

'     readedString = ""
'     buffer = fileReader.ReadLine
'     Do While Not buffer Is Nothing
'         readedString += buffer
'         buffer = fileReader.readLine
'     Loop

'     fileReader.Close()

'     return readedString
' End Function


' Private Sub WriteToFile(ByRef fileName As String, ByRef s As String)
'     Dim fileWriter as StreamWriter

'     fileWriter = New StreamWriter(fileName)
'     fileWriter.WriteLine(s)
'     fileWriter.Close()
' End Sub