VB Studio Çarpma ile ilgili sorum var .Yardım

Merhaba arkadaşlar vb studio 2005 ile iddaa hesap programı yapmaya çalışyıorum basit bir yerde takıldım.15 tane textbox var ve en fazla 15 tane değere değer girilebilir.Fakat 5 tane ye girdiğimde girilmeyenleri 0 olarak alıyor(ekranda gözukmuyor tahmin ediyorum çünkü sonuç 0 çıkıyor.) ve sonuc 0 olarak çıkıyor.Girilmeyen textboxların 1 değerini alması lazım.
Kod bu arkadaşlar...

       Dim a, b, c, d, z, f, g, h, i, j, k, l, m, n, o, s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15 As Single

        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        d = TextBox4.Text
        z = TextBox5.Text
        f = TextBox6.Text
        g = TextBox7.Text
        h = TextBox8.Text
        i = TextBox9.Text
        j = TextBox10.Text
        k = TextBox11.Text
        l = TextBox12.Text
        m = TextBox13.Text
        n = TextBox14.Text
        o = TextBox15.Text

        s1 = a * b
        s2 = b * c
        s3 = c * d
        s4 = d * z
        s5 = z * f
        s6 = f * g
        s7 = g * h
        s8 = h * i
        s9 = i * j
        s10 = j * k
        s11 = k * l
        s12 = l * m
        s13 = m * n
        s14 = n * o

        sonuc.Text = s1 * s2 * s3 * s4 * s5 * s6 * s7 * s8 * s9 * s10 * s11 * s12 * s13 * s14
    End Sub

Sorunu başka bir forumdan arkadaş haletti.
Kilitlenebilir...