errore su codice

[pietro09]

mi sapete dire perchè questo codice va in errore?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	Dim a$ = ""

	Response.Write(prova(a))

End Sub

Function prova(ByVal a As String) As String
	Return Replace(a, ",", ".").ToLower
End Function

[riccardone]

If Not Replace(a, ",", ".") Is Nothing Then Return Replace(a, ",", ".").ToLower

[pietro09]

Originariamente inviato da riccardone

If Not Replace(a, ",", ".") Is Nothing Then Return Replace(a, ",", ".").ToLower

Ti ringrazio In attesa di risposta, prova e riprova (mai avuto problemi con Replace) ho scoperto che l'implementazione di Replace è semplicemente sbagliata (BUG BUG BUG) perchè, quando riceve una stringa vuota, restituisce null.
Ho perciò sostituito Replace con Stringa.Replace, che invece funziona

perciò:
Return Replace(a, ",", ".").ToLower
cambio in
Return a.Replace(",", ".").ToLower

Ciao