German String formatiert umwandeln in Double

<row>
    <Menue>197</Menue>
    <Text_D>TULLAMQRE DEW COLA</Text_D>
    <Text_C>TULLAMQRE DEW COLA</Text_C>
    <Preis3>3,5</Preis3>
</row>
<row>
    <Menue>198</Menue>
    <Text_D>KUEMMERLING COLA</Text_D>
    <Text_C>KÜMMERLING COLA</Text_C>
    <Preis3>3,5</Preis3>
</row>

   'XML Definations
   Dim XMLparser As SaxParser
   Dim MenuNr, TextD, TextC As String
   Dim MenuPreis As String   'Double kann ich definieren, sonst meckert.

Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
   If XMLparser.Parents.IndexOf("row") > -1 Then
   
      If MenuNr = nummerbox.Text Then
                  MenuGefunden = True
         Return
        End If

      If Name = "Text_D" Then
         TextD = Text.ToString
            'Msgbox (TextD, "TextD")
            Else If Name = "Text_C" Then
               TextC = Text.ToString
               Else If Name = "Preis3" Then
                  MenuPreis = Text.ToString
                  Else If Name = "Menue" Then
                     MenuNr = Text.ToString
                        If MenuNr = nummerbox.Text Then
                           MenuGefunden = True
                           Return
                        End If
            
         End If
      End If                        
End Sub

Dim strMenuPreis As String
Dim MenuPreis As Double
.
.
strMenuPreis = Text.ToString
strMenuPreis = strMenuPreis.Replace(",", ".")
MenuPreis = strMenuPreis