英文轉換大寫英文

'利用，數字轉國字大寫的方法，來寫出英文轉換大寫的作法

Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a1 = "abcdefghijklmnopqrstuvwxyz"
        Dim a2 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim c = "h a p p y"
        Dim d = c

        For i = 1 To 26
            d = Replace(d, Mid(a1, i, 1), Mid(a2, i, 1))
        Next i
        MsgBox(c & " 英文轉換大寫： " & d)
    End Sub
End Class