Sub test()
    For i =  1  To Len(Cells( 1 ,  1 ))
        If IsNumeric(Mid(Cells( 1 ,  1 ), i,  1 )) Then
            If Mid(Cells( 1 ,  1 ), i,  1 ) > m Then m = Mid(Cells( 1 ,  1 ), i,  1 )
        End If
    Next
    MsgBox m
End Sub

Sub test()
    Dim m!
    m =  2147483647 
    If Cells( 1 ,  1 ) <> "" And IsNumeric(Cells( 1 ,  1 )) Then
        For i =  1  To Len(Cells( 1 ,  1 ))
            If Mid(Cells( 1 ,  1 ), i,  1 ) < m Then m = Mid(Cells( 1 ,  1 ), i,  1 )
        Next
        If m <>  2147483647  Then Cells( 1 ,  2 ) = m
    End If
End Sub

Sub test2()
    If Cells( 1 ,  1 ) >  1  And IsNumeric(Cells( 1 ,  1 )) Then
        m = Mid(Cells( 1 ,  1 ),  1 ,  1 )
        For i =  2  To Len(Cells( 1 ,  1 ))
            If Mid(Cells( 1 ,  1 ), i,  1 ) < m Then m = Mid(Cells( 1 ,  1 ), i,  1 )
        Next
        Cells( 1 ,  2 ) = m
    End If
End Sub

Len(string | varname) - Возвращает длину строки string или количество байт, занимаемых переменной varname.

Пример:

Type CustomerRecord ' Определяем свою запись
ID As Integer ' Кладём это определение в модуль
Name As String * 10 
Address As String * 30
End Type

Dim Customer As CustomerRecord
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen

MyString = "Hello World" ' Инициализация переменной
MyLen = Len(MyInt) ' Возвратит 2.(кол-во байт, занимаемых переменной)
MyLen = Len(Customer) ' Возвратит 42.
MyLen = Len(MyString) ' Возвратит 11. (длину строки)
MyLen = Len(MyCur) ' Возвратит 8.

Mid(stringvar, start[, length]) = string - заменяет символы в строке stringvar начиная с позиции start символами, содержащимися в строке string.

Пример:

Dim MyString
MyString = "The dog jumps" ' Инициализируем строку
Mid(MyString, 5, 3) = "fox" ' MyString = "The fox jumps".
Mid(MyString, 5) = "cow" ' MyString = "The cow jumps".
Mid(MyString, 5) = "cow jumped over" ' MyString = "The cow jumpe".
Mid(MyString, 5, 3) = "duck" ' MyString = "The duc jumpe".

Sub test2()
Dim m!, m2!
    If Cells( 1 ,  1 ) >  2  And IsNumeric(Cells( 1 ,  1 )) Then
        m = Application.Min(Mid(Cells( 1 ,  1 ),  1 ,  1 ), Mid(Cells( 1 ,  1 ),  2 ,  1 ))
        m2 = Application.Max(Mid(Cells( 1 ,  1 ),  1 ,  1 ), Mid(Cells( 1 ,  1 ),  2 ,  1 ))
        
        For i =  3  To Len(Cells( 1 ,  1 ))
            If Val(Mid(Cells( 1 ,  1 ), i,  1 )) < m Then
                m2 = m
                m = Mid(Cells( 1 ,  1 ), i,  1 )
            ElseIf Val(Mid(Cells( 1 ,  1 ), i,  1 )) > m And Val(Mid(Cells( 1 ,  1 ), i,  1 )) < m2 Then
                m2 = Val(Mid(Cells( 1 ,  1 ), i,  1 ))
            End If
        Next
        Cells( 1 ,  2 ) = m
        Cells( 1 ,  3 ) = m2
    End If
End Sub

Sub test3()
    If Cells( 1 ,  1 ) >  2  And IsNumeric(Cells( 1 ,  1 )) Then
        Application.DisplayAlerts = False
        Set sh1 = ActiveSheet
        Set sh = ThisWorkbook.Worksheets.Add
        sh.Cells(i +  1 ,  1 ) = "fild"
        For i =  1  To Len(sh1.Cells( 1 ,  1 ))
            sh.Cells(i +  1 ,  1 ) = Mid(sh1.Cells( 1 ,  1 ), i,  1 )
        Next
        sh.Cells( 1 ,  1 ).CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
        sh.Cells( 1 ,  1 ).CurrentRegion.Sort Key1:=sh.Cells( 1 ,  1 ), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:= 1 , MatchCase:=False, Orientation:=xlTopToBottom
        sh1.Cells( 1 ,  2 ) = sh.Cells( 1 ,  1 )
        sh1.Cells( 1 ,  3 ) = sh.Cells( 2 ,  1 )
        ThisWorkbook.Worksheets(sh.Name).Delete
        Application.DisplayAlerts = True
    End If
End Sub

Рекомендуется: 
Для повышения удобочитаемости сообщений - пользоваться специальными кодами для выделения слов (b, u, i, color) (но не злоупотреблять ими) и тегом форматирования исходных кодов src.

Sh.Cells(i +  1 ,  1 ) = ""

sh.Cells( 1 ,  1 ) = "fild"

page3.Cells( 5 ,  11 )

Sheets("page3").Cells( 8 ,  7 )

Sh.Cells( 1 ,  1 ).CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, Unique:=True

page3.Cells( 8 ,  7 ) = Application.Sum(sh.Cells( 1 ,  1 ).CurrentRegion)

sh.Cells( 1 ,  1 ).CurrentRegion.Sort Key1:=sh.Cells( 1 ,  1 ), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:= 1 , MatchCase:=False, Orientation:=xlTopToBottom

page3.Cells( 8 ,  7 ) = Application.Subtotal( 9 , sh.Cells( 1 ,  1 ).CurrentRegion)