sub 配列取得()
'@事前に配列の項目を定義
Dim 配列() As String
'A配列にしたい文字列を指定
wk = "C:\Windows\AppPatch\AppPatch64"
'B配列にする、また、配列の最大を取得(必要なら)
配列 = Split(wk, "\")
Max = UBound(配列)
'C通常の配列と同じように使用できる(今回は配列の最後の文字を表示してみた例)
MsgBox 配列(Max)
End Sub