Функции обработки строк - VB

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

не могу разобраться со всеми этими функциями, где и что использовать. например две задачи: а)указать минимальное количество первых букв, по которым можно различить слова из заданного набора (слова разделены пробелами). б) разбить исходныйтекст на строки длиной не более 50 символов. перенос на новую строку осуществлять на месте пробела (часть слова переносить нельзя) ну во второй задаче возможно надо использовать left и mid функции...но не понимаю как...помогите, если не сложно...

Решение задачи: «Функции обработки строк»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Комманда1_Click()
Dim S As String
Dim M() As String
Dim QWERT
S = "мама мыла машу мылом"
M = Split(S)
MsgBox StringAnd(M)
End Sub
 
Function StringAnd(ST() As String) As Byte
StringAnd = 1
Dim N
Dim T
Dim J
Dim I As Integer
N = 1
For I = 0 To UBound(ST)
DOB:
T = Left(ST(I), N)
       For J = I + 1 To UBound(ST)
       DoEvents
       If T = Left(ST(J), N) Then N = N + 1: GoTo DOB
       Next J
       If StringAnd < N Then StringAnd = N: N = 1
Next I
End Function