Private Sub Command1_Click()
  Dim a As String * 8
  Dim b As String * 8
  a = "12345678"
  b = "123456789abc"
  MsgBox a
  MsgBox b
End Sub