VBA! плииииз помогите написать прогу для Userform

strTungTied = “1234”
aryWood = Split(strTungTied, “А”)
MsgBox “цифра ‘A’ встречается в “ & vbCrLf & _
strTungTied & “‘“ & vbCrLf & _
UBound(aryWood) & “ раз (а). ”
хотя это к символам относится а не к цифрам, может я не правильно вопрос понял