민번생성기 소스라는데 이거 폼파일로 좀 만들어 주세요
Option Explicit

Private Sub Command1_Click()
Dim many As Long
Dim much As Long
many = Val(Text1.Text)
If Combo1.Text = "" Then
   MsgBox "나이를 입력하여 주세요!"
   Exit Sub
ElseIf Combo2.Text = "" Then
   MsgBox "성별을 입력하여 주세요!"
   Exit Sub
ElseIf Combo3.Text = "" Then
   MsgBox "생일을 입력하여주세요!"
   Exit Sub
ElseIf Combo4.Text = "" Then
   MsgBox "생일을 입력하여주세요!"
   Exit Sub
ElseIf Text1.Text = "" Then
   MsgBox "개수를 입력하여 주세요!"
   Exit Sub
End If
mainform.Height = 5340
much = 0
Do
   zumin
   much = much + 1
Loop While (many > much)
Text2.Text = Text2.Text + "총" + Str(many) + "개를 만들었습니다." + vbCrLf + vbCrLf + "문의사항은여기로" + vbCrLf + "whozzang@hotmail.com"
Open "주민번호결과.txt" For Output As #1
Write #1, Text2.Text
Close #1
End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Text2.Text = ""
End Sub
Sub zumin()
Dim age As Integer
Dim sex As String
Dim mon As Integer
Dim day As Integer
Dim backnum As Integer
Dim num(13) As Integer
Dim res As Integer
age = Val(Combo1.Text)
sex = Combo2.Text
mon = Val(Combo3.Text)
day = Val(Combo4.Text)
backnum = age Mod 10
Select Case age
   Case 12
       num(0) = 9
   Case 13 To 22
       num(0) = 8
   Case 23 To 32
       num(0) = 7
   Case 33 To 42
       num(0) = 6
   Case 43 To 52
       num(0) = 5
   Case 53 To 60
       num(0) = 4
End Select
Select Case backnum
   Case 0
       num(1) = 2
   Case 1
       num(1) = 1
   Case 2
       num(1) = 0
   Case 3
       num(1) = 9
   Case 4
       num(1) = 8
   Case 5
       num(1) = 7
   Case 6
       num(1) = 6
   Case 7
       num(1) = 5
   Case 8
       num(1) = 4
   Case 9
       num(1) = 3
End Select
If mon >= 10 Then
   num(2) = 1
   num(3) = mon Mod 10
Else
   num(2) = 0
   num(3) = mon
End If
Select Case day
   Case 30 To 31
       num(4) = 3
       num(5) = day Mod 10
   Case 20 To 29
       num(4) = 2
       num(5) = day Mod 10
   Case 10 To 19
       num(4) = 1
       num(5) = day Mod 10
   Case 1 To 9
       num(4) = 0
       num(5) = day
End Select
If sex = "남" Then
   num(6) = 1
Else
   num(6) = 2
End If
num(7) = Int(Rnd(1) * 9) + 1
num(8) = Int(Rnd(1) * 9) + 1
num(9) = Int(Rnd(1) * 9) + 1
num(10) = Int(Rnd(1) * 9) + 1
num(11) = Int(Rnd(1) * 9) + 1
res = num(0) * 2 + num(1) * 3 + num(2) * 4 + num(3) * 5 + num(4) * 6 + num(5) * 7 + num(6) * 8 + num(7) * 9 + num(8) * 2 + num(9) * 3 + num(10) * 4 + num(11) * 5
res = 11 - (res Mod 11)
If res >= 10 Then
   res = res Mod 10
Else
   res = res
End If
num(12) = res
Text2.Text = Text2.Text + Str(num(0)) + Str(num(1)) + Str(num(2)) + Str(num(3)) + Str(num(4)) + Str(num(5)) + "-" + Str(num(6)) + Str(num(7)) + Str(num(8)) + Str(num(9)) + Str(num(10)) + Str(num(11)) + Str(num(12)) + vbCrLf
End Sub