Через букву маленькие буквы должны стать большими

Private Sub Command1_Click()
Dim i As Long
Text2.Text = ""
For i = 1 To Len(Text1.Text)
  Text2.Text = Text2.Text & IIf(i Mod 2, UCase(Mid$(Text1.Text, i, 1)), LCase(Mid$(Text1.Text, i, 1)))
Next i
End Sub

Const e = 2.718282
Private Sub Form_Click()
Dim x As Single, Y As Single, i As Single
Dim niz As Double, verh As Double, shag As Double
   Me.Show
   m = InputBox("Vvedite m", "", 31)
   niz = -4: verh = 8: shag = 0.00013 ': X = niz
   
   Me.Caption = "y=e^x*sin(sqr(x^2+m))"
   
   DrawStyle = 0: WindowState = 2: FillStyle = 0
   Me.Show
   Cls
   Scale (niz, verh)-(verh, niz)
   Line (niz, 0)-(verh, 0), vbBlue  'ocb X
   Line (0, niz)-(0, verh), vbBlue   'ocb Y
 
   For x = niz To verh - 2 Step shag
          '''''''''''''''''''''''''''''''''''''''''''''
          Y = e ^ x * Sin(Sqr(x ^ 2 + m)) '
          '''''''''''''''''''''''''''''''''''''''''''''
          Circle (x, Y), 0.015, RGB(255, 0, 0)
   Next x
  
   Form1.DrawStyle = 2   ' Пунктирная линия
   For i = -50 To 50 Step 0.5
          Form1.CurrentX = 0    ' оцифровка
          Form1.CurrentY = i
          Print i        ' засечка
          Line (-8, i)-(10, i)
   Next i
 
   For i = -50 To 50 Step 0.5
          Form1.CurrentX = i    ' оцифровка
          Form1.CurrentY = 0
          Print i
          Line (i, -10)-(i, 8) ' засечка
          
   Next i
    ForeColor = vbBlue: FontBold = True
    CurrentY = 7.8
   For x = 0 To 3 Step 0.2
    Y = e ^ x * Sin(Sqr(x ^ 2 + m))
    CurrentX = -2.6
    Print "x = " & x & ",   Y = "; Y
   Next x
  End Sub
  Private Sub Form_Load()
          Form_Click
  End Sub