Hocam bilgi vermek için yazıyorum,
Kodlara aşağıdaki eğer yordamıyla çözüme kavuşturdum.

If TextBox46.Value = "" Then

isk1 = Format(Val(0) * Val(1), "#,##0.00")

Else

isk1 = TextBox46.Value

End If



If TextBox47.Value = "" Then

isk2 = Format(Val(0) * Val(1), "#,##0.00")

Else

isk2 = TextBox47.Value

End If



If TextBox48.Value = "" Then

isk3 = Format(Val(0) * Val(1), "#,##0.00")

Else

isk3 = TextBox48.Value

End If

Şu an sorun yok gibi, yinede gelen olarak kontrolünü yapmadım tamamen bitince buradan paylaşmış olurum..