求VB记录序列号程序代码

求一个VB编写序列号的代码，两种情况，一个text框，里面输入8位序列号，输入小写大写都可以，但是显示大写，且序列号自动变为xx-xx-xx-xx，自动在其中间增加横杠，也可以四个text框，输入2个自动跳到下一个框，自动显示为大写～～请问这个要怎么写程序？

然后我需要将这组序列号存档到D盘一个文件夹下的一个文档里，可以是doc或者txt，文档名字用序列号来命名，然后我存另外一个序列号，又会新建另一个序列号的文档，请问这个又要怎么做呢？

请教高手指点了～～～～～～～ (1)输入可以使用 MaskEdit （MaskTextBox）控件。设置好掩码，就可以实现格式化输入。
(2)可以保存到注册表下，使用 SaveSetting 语句，用 LoadSetting 读取。请问这个语句要怎么编写，可以稍微详细一点么，谢谢~~



Private Sub Command1_Click()

   Open "d:\1\" & Text1 & ".txt" For Output As #1

   Close #1

   

End Sub



Private Sub Form_Load()

    Text1 = ""

    Text1.MaxLength = 11

End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)

   If KeyAscii <> 8 Then

      Select Case Len(Text1)

         Case 2, 5, 8

           Text1 = Text1 & "-"

      End Select

      Text1 = Text1 & UCase(Chr(KeyAscii))

      Text1.SelStart = Len(Text1)

      KeyAscii = 0

   End If

   

End Sub

使用 4 个输入框：

Private Sub Text1_Change(Index As Integer)
    If Text1(Index).SelStart = 2 And Index < 3 Then Text1(Index + 1).SetFocus
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    Select Case KeyAscii
        Case Asc("a") To Asc("z")
            KeyAscii = KeyAscii - 32
    End Select
End Sub

Private Sub Form_Load()
    Dim i As Integer

    For i = 0 To 3
        Text1(i).MaxLength = 2
    Next i
End Sub If 条件 Then
                 Text1 = trirm(Text2.text) & "-" & trirm(Text3.text)
.....
end if
跪求高手帮忙用VB+sql写个简单可以运行的《酒店客房管理系统》。
或发我邮箱里，zc2836995@126.com,在下感激不尽.

补充：VB ,  控件