Private Sub Command1_Click()
    Dim seven As String
    Dim number As Integer
    seven = "7"
    number = seven
    MsgBox seven
    MsgBox number
End Sub
