Dim ... As ...

|

Sub test()

    '使用する変数(値が入る容器のようなもの)を用意する
    Dim i As Integer '整数が入る容器
    Dim s As String '文字列が入る
    
    i = 123 '容器に数字を入れる
    s = "abc" '容器に文字を入れる
   
    MsgBox i
    MsgBox s

End Sub