Dim и переменная

[Dark]

Подскажите как включить в Dim модуль переменную, понимаю что делаю неправильно, но не знаю как обойти
Вот то что пытаюсь реализовать, подскажите как сделать правильно???

If ComboBox5.Value = "Муж." Then G = 56 Else G = 51
If G - ComboBox6 >= 30 Then U = 30 Else U = G - ComboBox6
Dim S(3 To U) As Integer
For I = 1 To 30
S(I) = I
Next I
ComboBox7.List = S
End If

[INDENT][INDENT][INDENT][INDENT][/INDENT][/INDENT][/INDENT][/INDENT]СПАСИБО!!

[EducatedFool]

Код: Выделить всё

Private Sub CommandButton1_Click()
    G = IIf(ComboBox5 = "Муж.", 56, 51)
    If G - Val(ComboBox6) >= 30 Then U = 30 Else U = G - Val(ComboBox6)
    ReDim S(1 To U) ' используйте REDIM вместо DIM
    For I = 1 To U: S(I) = I: Next I
    ComboBox7.List = S
End Sub

[Busine2009]

EducatedFoo
ты же не пишешь сейчас макросы для Word. Подправь свою подпись.