geen waarde probleem

hej leden van CP,
ik zit met een klein probleempje.
ik ben bezig met een applicatie maar hij geeft een error aan als ik niks in mijn textbox heb staan.

hier mijn code (voor 1 textbox):

Private Sub cent5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cent5.TextChanged
        totaalcent5.Text = Val(cent5.Text * 0.05)
        If cent5.Text = "" Then
            MsgBox("je moet altijd een getal hebben ingevoerd!", , "Errror!")
        End If

zal de code even snel uitleggen:

totaalcent5.text = de textbox die de waarde moet gaan aangeven van textbox cent5.text . deze geeft geen error.

cent5.text = de textbox waar je waarde's in kan voeren. als deze leeg gaat krijg ik de volgende error:

Conversion from string "" to type 'Double' is not valid

en tegelijkertijd:
A first chance exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll

hopelijk kunnen jullie me helpen!

MVG,
Jasper Vergers