Koristiti jednu formu kao pocetnu samo jedanput?

Code:

Public Sub Main()
   On Error Resume Next
   ocitanoizfajla = ProcitajizFajla
   If Val(ocitanoizfajla) = 0 Or Val(ocitanoizfajla) = "5" Then
        Call SnimiuFajl("8")
        Form8.Show
   End If
   If Val(ocitanoizfajla) = "8" Then
        Call SnimiuFajl("5")
        Form5.Show
   End If
End Sub

Public Sub SnimiuFajl(brojforme)
    redbrfajla = FreeFile
    Open "BrForme.txt" For Output As #redbrfajla
        Print #redbrfajla, brojforme
   Close #redbrfajla
End Sub

Public Function ProcitajizFajla()
   redbrfajla = FreeFile
   Open "BrForme.txt" For Input As #redbrfajla
        Line Input #1, ocitanoizfajla
   Close #redbrfajla
   ProcitajizFajla = ocitanoizfajla
End Function

Code:

Public Sub Main()
   On Error Resume Next
   ocitanoizfajla = ProcitajizFajla
   If Val(ocitanoizfajla) = 0 Or Val(ocitanoizfajla) = "5" Then
        Call SnimiuFajl("8")
        Form8.Show
   Else
        Load Form5
        Form5.Show
   End If
'   If Val(ocitanoizfajla) = "8" Then
'        Call SnimiuFajl("5")
'        Form5.Show
'   End If
End Sub

Code:

Option Explicit

Dim reg As Variant

Public Sub Main()
Dim a As String

Set reg = CreateObject("wscript.shell")

On Error GoTo RegErr
a = reg.regread("HKCU\Software\Form8\Forma8")

If a = "Y" Then
    Load Form5
    Form5.Show
End If

Exit Sub
RegErr:
    reg.regwrite "HKCU\Software\Form8\Forma8", "Y", "REG_SZ"
    Load Form8
    Form8.Show

End Sub

Code:

Private Sub Form_Load()
    Dim MyFSO As New FileSystemObject
    If MyFSO.FileExists("IntroDone.txt") Then
        Form5.Show
        Unload Me
    Else
        MyFSO.CreateTextFile ("IntroDone.txt")
    End If
    Set MyFSO = Nothing
End Sub