Shoutbox

still doesnt work heres my complete code

code:

---

Dim intMsg, Message As String
Private Sub Command2_Click()
Open "C:\Program Files\Multi-app\password.txt" For Input As #1
Line Input #1, Pass
MsgBox (Pass & " is your Password.")
Close #1
End Sub
Private Sub Command3_Click()
Open "C:\Program Files\Multi-app\password.txt" For Append As #1
intMsg = MsgBox("Password Rememberer opened.")
Message = InputBox("Enter Password")
Print #1, intMsg; Message

Close #1
End Sub

Private Sub Command1_Click()
Dim Pass As Integer
Open App.Path & "C:\Program Files\Multi-app\password.txt" For Input As #1
Pass = InputBox("Enter Password.")
MsgBox (Pass & " remembered.")

End Sub

Public Function DoesFolderExist(strPath As String, Optional blnCreateFolder As Boolean = False) As Boolean
    Dim AnyFolder As Long
    AnyFolder = vbDirectory Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive Or vbNormal
 
    If Dir(strPath, AnyFolder) <> "" Then
        DoesFolderExist = True
    Else
        If blnCreateFolder Then
            MkDir strPath
        End If
        DoesFolderExist = False
    End If
End Function


Public Function DoesFileExist(strFile As String, Optional blnCreateFile As Boolean = False) As Boolean
    Dim AnyFile As Long
    AnyFile = vbReadOnly Or vbHidden Or vbSystem Or vbArchive Or vbNormal
 
    If Dir(strFile, AnyFile) <> "" Then
        DoesFileExist = True
    Else
        If blnCreateFile Then
            Open strFile For Output As #1
            Close #1
        End If
        DoesFileExist = False
    End If
End Function

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If MsgBox("Are you sure you want to shut down?", vbYesNoCancel) <> vbYes Then
    Cancel = True
  End If
End Sub



Private Sub mnuHelp_Click(Index As Integer)
MsgBox "Please email me at lucky_number_15s@hotmail.com for any help or SUGGESTIONS!"
End Sub

---