Option Explicit
 
Private m_strWilli()        As String
 
Private Sub Command1_Click()
Dim i       As Integer
Dim sMsg    As String
 
  ReDim m_strWilli(4)
 
  m_strWilli(1) = "Hallo "
  m_strWilli(2) = "Welt, "
  m_strWilli(3) = "wie "
  m_strWilli(4) = "gehts?"
 
  For i = 1 To 4
    sMsg = sMsg & m_strWilli(i)
  Next i
  MsgBox sMsg
 
End Sub