problemmer med if else...

Hej.

Jeg er helt ny i emnet Visual Baisc.
Er lige startet med at læse på det for 3 dage siden.
Har lånt bogen. Start på visual basic 6.0

Har læst frem til hvordan man gemmer filer.
Synes det har været rigtig meget at læse så for ikke at glemme det er jeg gået igang med at prøve at lave mit eget lille budget program.
Da har jeg en række lister hvor jeg vil have en til at skrive udgifter i som tekst og så alle måneder hvor du taster udgifter i kr pr måned, men har lige set mig blind på det tror jeg så har brug for lidt hjælp til at komme videre.
Altså hele designet har jeg mere eller mindre på plads.
Så har jeg nogle variabler som hedder:

Dim jan As Integer
Dim feb As Integer
Dim mar As Integer
Dim apr As Integer
Dim maj As Integer
Dim jun As Integer
Dim jul As Integer
Dim aug As Integer
Dim sep As Integer
Dim okt As Integer
Dim nov As Integer
Dim dec As Integer

Så når man trykker på min knap som hedder: tilfoej_udgift
har jeg følgende kode

Private Sub tilfoej_udgift_Click()
If udgifttxt.Text = "" Then
MsgBox "Du skal indtaste navnet på din udgift før den kan tilføjes"
Else
udgiftlst.AddItem udgifttxt.Text
jan = InputBox("skriv udgiften for Januar måned")
feb = InputBox("skriv udgiften for Februar måned")
mar = InputBox("skriv udgiften for Marts måned")
apr = InputBox("skriv udgiften for April måned")
maj = InputBox("skriv udgiften for Maj måned")
jun = InputBox("skriv udgiften for Juni måned")
jul = InputBox("skriv udgiften for Juli måned")
aug = InputBox("skriv udgiften for August måned")
sep = InputBox("skriv udgiften for September måned")
okt = InputBox("skriv udgiften for Oktober måned")
nov = InputBox("skriv udgiften for November måned")
dec = InputBox("skriv udgiften for December måned")
udgifttxt.Text = ""
End If
End Sub


Og sjovt nok men det virker også

Det jeg så gerne ville have var noget i still med

Private Sub tilfoej_udgift_Click()
If udgifttxt.Text = "" Then
MsgBox "Du skal indtaste navnet på din udgift før den kan tilføjes"
Else
udgiftlst.AddItem udgifttxt.Text
jan = InputBox("skriv udgiften for Januar måned")
if jan = "" then jan = "0" next


Altså sagt med andre ord.

Hvis du vælger ikke at indsætte nogen kr i januar så bliver det automatisk til 0 kr og den går videre...
Men det virker ikke.

Der efter vil jeg gerne have mine værdier som bliver intastet i alle måneder tilføjet til de enkelte lister jeg har lavet.
Hvilken kode skal jeg bruge til det?

Jeg håber der er nogen som kan forklare mig det på et virkelig begynder niveau