Помогите пожалуйста составить код для VBДано натуральное число. Верно ли,что в

Dim a As Integer, s As Integer, g As Integer, h As String, f As String, d As String
s = InputBox("Введите естественное число")a = InputBox("Введите цифру")h = CStr(s)f = CStr(a)g = Len(h)For i = 1 To gv = Mid(h, i, 1)If v = f Thend = "Цифра " + f + " находится в числе " + hExit ForElsed = "Цифра " + f + " не находится в числе " + hEnd IfNextMsgBox d