IIF problem och Currency Problem

Private Sub cmdAdd_Click()
    Dim curPriceIn As Currency
    Dim curPriceOut As Currency
    Dim strItem As String
    Dim intNbrOfItems As Integer
    Dim intTmp As Integer
    ' Ersätter . (punkt) med , (komma) om användare gör fel vid inmatning
    txtItem.Text = Trim(txtItem.Text)
    txtPriceIn = Replace(txtPriceIn.Text, ".", ",")
    txtPriceOut = Replace(txtPriceOut.Text, ".", ",")
    curPriceIn = IIf(IsNumeric(txtPriceOut.Text), CCur(txtPriceIn.Text), CCur(0))
    curPriceOut = IIf(IsNumeric(txtPriceOut.Text), CCur(txtPriceOut.Text), CCur(0))
    MsgBox (curPriceIn & " " & curPriceOut)
End Sub

Allt funkar så längen IsNumeric(txtPriceOut.Text) och IsNumeric(txtPriceIn.Text) är sannt, skulle det smyga sig in ett ikke Numreriskt värde i det hela så får jag fel meddelanden.
Runtime Error 13
Type Mismatch

Vad i helvet är det som är FEEEEEL

har testat med olika varianter i False alternativet på IIF, tex med CCur("0,0") och lite andra varianter

Sedna så skulle jag vilja veta hur jag löser problemet med Decimaler i Currency värdet, jag vill skriva ut det på skärmen, men är det hela tiotal i decimalerna och eller heltal så skrivs det ut 10,1 eller 10 man jag vill att det skall skrivas som 10,10 och eller 10,00 i dom fallen det inträffar vilket är oftast...

Du kan kontrollera att ett värde är numeriskt med funktionen IsNumeric().

Du kan använda Format() för att formatera värdet till två decimaler.

mvh

Private Sub cmdConvert_Click()
  Dim curMyCurrency As Currency
  txtIsCurrency.Text = Replace(txtIsCurrency.Text, ".", ",")
  txtIsCurrency.Text = IIf(IsNumeric(txtIsCurrency.Text), txtIsCurrency.Text, "0,0")
  curMyCurrency = CCur(txtIsCurrency.Text)
  lblCurrency.Caption = Format(curMyCurrency, "Currency")
End Sub
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafmtnamednumericformats.asp
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafctFormat.asp

Löste ALLA mina problem... Just nu ialla fall