Проверка символа по его расположению и символов слева и справа от него

Public Function ПрописьPT(x As Double) As String
If x > 1E+15 Then
ПрописьPT = "O argumento " & ChrW(233) & " mais do que 1.000.000.000.000.000!"
ElseIf x < 0 Then
ПрописьPT = "O argumento " & ChrW(233) & " negativo!"
Else
x = FormatNumber(x, 0, , , vbTrue)
Dim y(1 To 6) As Integer, i1 As Byte
For i1 = 1 To 6
x = Fix(x) / 1000
y(i1) = (x - Fix(x)) * 1000
Next
Dim Text(1 To 6) As String, i2 As Byte, y1 As Byte, y2 As Byte, _
y3 As Byte, Text0 As String, Text1 As String, Text2 As String, Text3 As String, _
Text4 As String
For i2 = 1 To 6
y1 = y(i2) Mod 10
y2 = (y(i2) - y1) / 10 Mod 10
y3 = y(i2) \ 100
If y2 = 0 And y1 = 0 Then
If i2 = 1 And y(2) = 0 And y(3) = 0 And y(4) = 0 And y(5) = 0 And y(6) = 0 Then
Text1 = Choose(y3 + 1, "", "cem ", "duzentos ", "trezentos ", "quatrocentos ", _
"quinhentos ", "seiscentos ", "setecentos ", "oitocentos ", "novecentos ")
Else
Text1 = Choose(y3 + 1, "", "e cem ", "e duzentos ", "e trezentos ", "e quatrocentos ", _
"e quinhentos ", "e seiscentos ", "e setecentos ", "e oitocentos ", "e novecentos ")
End If
Else
Text1 = Choose(y3 + 1, "", "cento ", "duzentos ", "trezentos ", "quatrocentos ", _
"quinhentos ", "seiscentos ", "setecentos ", "oitocentos ", "novecentos ")
End If
If (i2 = 1 And y3 = 0 And y(2) = 0 And y(3) = 0 And y(4) = 0 And y(5) = 0 And y(6) = 0) _
Or (i2 <> 1 And y3 = 0) Then
Text2 = Choose(y2 + 1, "", "", "vinte ", "trinta ", "quarenta ", _
"cinquenta ", "sessenta ", "setenta ", "oitenta ", "noventa ")
Else
Text2 = Choose(y2 + 1, "", "", "e vinte ", "e trinta ", "e quarenta ", _
"e cinquenta ", "e sessenta ", "e setenta ", "e oitenta ", "e noventa ")
End If
If y2 = 1 Then
If (i2 = 1 And y3 = 0 And y(2) = 0 And y(3) = 0 And y(4) = 0 And y(5) = 0 And y(6) = 0) _
Or (i2 <> 1 And y3 = 0) Then
Text3 = Choose(y1 + 1, "dez ", "onze ", "doze ", _
"treze ", "quatorze ", "quinze ", "dezesseis ", _
"dezessete ", "dezoito ", "dezenove ")
Else
Text3 = Choose(y1 + 1, "e dez ", "e onze ", "e doze ", _
"e treze ", "e quatorze ", "e quinze ", "e dezesseis ", _
"e dezessete ", "e dezoito ", "e dezenove ")
End If
ElseIf i2 = 2 And y2 = 0 And y3 = 0 Then
Text3 = Choose(y1 + 1, "", "", "dois ", "tr" & ChrW(234) & "s ", "quatro ", "cinco ", _
"seis ", "sete ", "oito ", "nove ")
Else
If (i2 = 1 And y2 = 0 And y3 = 0 And y(2) = 0 And y(3) = 0 _
And y(4) = 0 And y(5) = 0 And y(6) = 0) Or (i2 <> 1 And y2 = 0 And y3 = 0) Then
Text3 = Choose(y1 + 1, "", "um ", "dois ", "tr" & ChrW(234) & "s ", "quatro ", "cinco ", _
"seis ", "sete ", "oito ", "nove ")
Else
Text3 = Choose(y1 + 1, "", "e um ", "e dois ", "e tr" & ChrW(234) & "s ", "e quatro ", "e cinco ", _
"e seis ", "e sete ", "e oito ", "e nove ")
End If
End If
If y1 = 1 And y2 = 0 And y3 = 0 Then
Text4 = Choose(i2, "", "mil ", "milh" & ChrW(227) & "o ", "bilh" & ChrW(227) & "o ", _
"trilh" & ChrW(227) & "o ", "quatrilh" & ChrW(227) & "o ")
ElseIf y1 = 0 And y2 = 0 And y3 = 0 Then
Text4 = Choose(i2, "", "", "", "", "", "")
Else
Text4 = Choose(i2, "", "mil ", "milh" & ChrW(245) & "es ", "bilh" & ChrW(245) & "es ", _
"trilh" & ChrW(245) & "es ", "quatrilh" & ChrW(245) & "es ")
End If
Text(i2) = Text1 & Text2 & Text3 & Text4
Next
If y(1) + y(2) + y(3) + y(4) + y(5) + y(6) = 0 Then
Text0 = "zero"
Else
Text0 = RTrim(Text(6) & Text(5) & Text(4) & Text(3) & Text(2) & Text(1))
End If
ПрописьPT = Text0
End If
End Function

if instr(Cstr(число),CStr(цифра))>1 and instr(Cstr(число),CStr(цифра))<len(Cstr(число)) Then
if Replace(Mid(Cstr(число),1,instr(Cstr(число),CStr(цифра))-1),"0","")="" and Replace(Mid(Cstr(число),instr(Cstr(число),CStr(цифра))+1),"0","")="" Then
msgbox "Справа и слева от цифры находятся 0"
else
msgbox "Справа или слева от цифры находятся другие цифры отличные от 0"
end if
msgbox "Цифра находится либо в начале числа либо в конце"
end if

If y(?) = 0 ' вместо ? я собирался вставить последовательность разрядов от самого первого (единицы/десятки/сотни) _
до разряда перед выделенным жирным, он же проверяемый. Разряды, входящие в последовательность, выделены курсивом