vba

Sub Macro1()
'
' Macro1 Macro
'

'

Dim inputStr As String
Dim myMsg As String
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String

inputStr = InputBox("名前を入力してください")

'---個々のアドレスを「,」で区切って配列に代入
myArray = Split(inputStr, ",") '---(1)

a = myArray(0)
b = myArray(1)
c = myArray(2)
d = myArray(3)
e = myArray(4)

ActiveCell.Value = a

Selection.Offset(0, 1).Select

ActiveCell.Value = b & "test "

' Move 1 cell down:
Selection.Offset(1, -1).Select

End Sub