Ajuda com o código e select case.

Pessoal, bom dia!!

Estou com um problema que não conseguir ver a solução... enfim, abaixo segue o código na qual tenho dificuldades.
Public Function fncbuscarfolga(folg As Integer)
Dim fog(3) As String

fg = 1
Do While fg <> folg
fg = fg + 1
If fg = 11 Then
folg = folg - fg
fg = 0
End If
Loop

Select Case folg
Case folg = 1
fog(0) = A
fog(1) = G
fog(2) = F
Case folg = 2
fog(0) = B
fog(1) = G
fog(2) = H
Case folg = 3
If folg = 3 Then
folg = 0
End If
fog(0) = C
fog(1) = H
fog(2) = I
Case folg = 4
fog(0) = D
fog(1) = I
fog(2) = j
Case folg = 5
fog(0) = E
fog(1) = j
fog(2) = K
Case folg = 6
fog(0) = F
fog(1) = K
fog(2) = A
Case folg = 7
fog(0) = G
fog(1) = A
fog(2) = B
Case folg = 8
fog(0) = H
fog(1) = B
fog(2) = C
Case folg = 9
fog(0) = I
fog(1) = C
fog(2) = D
Case folg = 10
fog(0) = j
fog(1) = D
fog(2) = E
Case folg = 11
fog(0) = K
fog(1) = E
fog(2) = F
End Select
End Function

a primeira parte roda beleza, mas quando chega no select case ele não busca o valor da variavel folg e não passa os valores para a variavel fog. Help- me!!!

Explique mais detalhadamente o que essa função deve fazer. Quanto mais detalhes melhor. Às vezes, nos pequenos detalhes, visualizamos formas mais eficientes de se alcançar o objetivo final.

Parece que tem erro de sintaxe.

Ao invés de

Case folg = 1

tente:

Case 1

em todos os Case, é claro.