I am getting a conversion type error on the red line, can someone pls help?
Code:Private Function GetGap() As Integer
Dim VowelNumG As Integer
Dm Vowels as string = "AEIOU"
Dim VowelIndexG as integer
For VowelIndexG = RandomStr.Length - 1 To 0 Step -1
Do While VowelNumG < 5 And VowelIndexG <> (RandomStr(0))
If Vowels.Contains(RandomStr.Substring(VowelIndexG, 1).ToUpper) Then
VowelNumG += 1
If VowelNumG = 3 Then
'MsgBox("Third vowel is " & RandomStr.Substring(VowelIndexG, 1) & "Char number is the " & (VowelIndexG) & "in the string")
Return VowelIndexG
Exit Function
End If
End If
Loop
Next
End Function
