新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Debug.Print 生成验证码(4, 3)
End Sub

新建模块 mod.bas，代码：

Enum 验证码方式
    数字 = 1                                                                    '数字
    字母 = 2                                                                    '字母
    混合 = 3                                                                    '数字+字母
End Enum
'============================================================================
'============================================================================
'===============随机生成验证码   模块========================================
'============================================================================
'============================================================================

Public Function 生成验证码(长度 As Long, 编排 As 验证码方式) As String
    Dim 内容 As String
    Dim 随机 As Long
    For i = 1 To 长度
        Randomize
        If 编排 = 数字 Then 内容 = 内容 & Int(Rnd() * 9) + 0
        If 编排 = 字母 Then 内容 = 内容 & Chr$(Int(Rnd() * 25) + 65)
        If 编排 = 混合 Then
            Randomize
            随机 = Int(Rnd() * 2) + 1
            If 随机 = 1 Then
                Randomize
                内容 = 内容 & Int(Rnd() * 9) + 0
            Else
                Randomize
                内容 = 内容 & Chr$(Int(Rnd() * 25) + 65)
            End If
        End If
    Next i
    生成验证码 = 内容
End Function

运行结果：

WBRE
1P5C
7P8S
S513
4W26
5I0T
18YT
UXGK
7HX3