Dim sData As String '書込み用文字列
Dim i, j, k, l, m, n, o, p As Integer 'ループ用カウンタ

For i = 0 To 7
For j = 0 To 7
Select Case j
Case i
Case Else
For k = 0 To 7
Select Case k
Case i
Case j
Case Else
For l = 0 To 7
Select Case l
Case i
Case j
Case k
Case Else
For m = 0 To 7
Select Case m
Case i
Case j
Case k
Case l
Case Else
For n = 0 To 7
Select Case n
Case i
Case j
Case k
Case l
Case m
Case Else