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..