Private Sub cmdSave_Click()
    Dim X As Integer, intNumber As Integer, strLoc As String
    
    For X = 1 To intNumber
        strLoc = txtLocName
        
        intNumber = intNumber + 1
        
        strLoc = strLoc + 1
        
        If strLoc < 0 Then Exit Sub
    Next X
    
    Call Savestring(HKEY_CURRENT_USER, "Software\RDS\Code Converter", strLoc, txtLocName)
    Me.Hide
End Sub