Function ValTBx(TBx As MSForms.TextBox)
Dim Z As String: Z = Replace$(TBx.Text, ".", ",")
If Z = "" Then
ValTBx = Empty
ElseIf IsDate(Z) Then
ValTBx = CDate(Z)
ElseIf IsNumeric(Z) Then
If Z Like "*€" Then ValTBx = CCur(Z) Else ValTBx = CDbl(Z)
Else
ValTBx = Trim$(TBx.Text)
End If
End Function