Sub Sample() Dim myName(4) As String, msg As String myName(0) = "田中" myName(1) = "鈴木" myName(2) = "佐藤" myName(3) = "山田" myName(4) = "黒沢" msg = Join(myName, ",") MsgBox msg End Sub