Vb.Net将希腊字符串转换为英语

我正在建立一个信息收集程序，像我表弟的一些计算机是希腊语的，所以名字是希腊语。我负责这个

 Dim Name As String = Environment.UserName.ToString

我得到了“Μητσος”，这是希腊字母。知道转换这个字符串需要什么吗？我自己建立了这个函数，但它似乎不起作用

Public Function ConvertToEnglish(ByVal Namee As String)
    Dim GreekName As String = Namee.ToString
    If GreekName.Contains("α") Or GreekName.Contains("Α") Then
        GreekName.Replace("α", "A")
        GreekName.Replace("Α", "A")
    End If
    If GreekName.Contains("β") Or GreekName.Contains("Β") Then
        GreekName.Replace("β", "B")
        GreekName.Replace("Β", "B")
    End If

    If GreekName.Contains("γ") Or GreekName.Contains("Γ") Then
        GreekName.Replace("γ", "G")
        GreekName.Replace("Γ", "G")
    End If

    If GreekName.Contains("δ") Or GreekName.Contains("Δ") Then
        GreekName.Replace("δ", "D")
        GreekName.Replace("Δ", "D")
    End If
    If GreekName.Contains("ε") Or GreekName.Contains("Ε") Then
        GreekName.Replace("ε", "E")
        GreekName.Replace("Ε", "E")
    End If
    If GreekName.Contains("ζ") Or GreekName.Contains("Ζ") Then
        GreekName.Replace("ζ", "Z")
        GreekName.Replace("Ζ", "Z")
    End If
    If GreekName.Contains("η") Or GreekName.Contains("Η") Then
        GreekName.Replace("η", "I")
        GreekName.Replace("Η", "I")
    End If
    If GreekName.Contains("θ") Or GreekName.Contains("Θ") Then
        GreekName.Replace("θ", "TH")
        GreekName.Replace("Θ", "TH")
    End If
    If GreekName.Contains("ι") Or GreekName.Contains("Ι") Then
        GreekName.Replace("ι", "I")
        GreekName.Replace("Ι", "I")
    End If
    If GreekName.Contains("κ") Or GreekName.Contains("Κ") Then
        GreekName.Replace("κ", "K")
        GreekName.Replace("Κ", "K")
    End If
    If GreekName.Contains("λ") Or GreekName.Contains("Λ") Then
        GreekName.Replace("λ", "L")
        GreekName.Replace("Λ", "L")
    End If
    If GreekName.Contains("μ") Or GreekName.Contains("Μ") Then
        GreekName.Replace("μ", "M")
        GreekName.Replace("Μ", "M")
    End If
    If GreekName.Contains("ν") Or GreekName.Contains("Ν") Then
        GreekName.Replace("ν", "N")
        GreekName.Replace("Ν", "N")
    End If
    If GreekName.Contains("ξ") Or GreekName.Contains("Ξ") Then
        GreekName.Replace("ξ", "KS")
        GreekName.Replace("Ξ", "KS")
    End If
    If GreekName.Contains("ο") Or GreekName.Contains("Ο") Then
        GreekName.Replace("ο", "o")
        GreekName.Replace("Ο", "o")
    End If
    If GreekName.Contains("π") Or GreekName.Contains("Π") Then
        GreekName.Replace("π", "P")
        GreekName.Replace("Π", "P")
    End If
    If GreekName.Contains("ρ") Or GreekName.Contains("Ρ") Then
        GreekName.Replace("ρ", "R")
        GreekName.Replace("Ρ", "R")
    End If
    If GreekName.Contains("σ") Or GreekName.Contains("Σ") Then
        GreekName.Replace("σ", "S")
        GreekName.Replace("Σ", "S")
    End If
    If GreekName.Contains("τ") Or GreekName.Contains("Τ") Then
        GreekName.Replace("τ", "T")
        GreekName.Replace("Τ", "T")
    End If
    If GreekName.Contains("υ") Or GreekName.Contains("Υ") Then
        GreekName.Replace("υ", "Y")
        GreekName.Replace("Υ", "Y")
    End If
    If GreekName.Contains("φ") Or GreekName.Contains("Φ") Then
        GreekName.Replace("φ", "F")
        GreekName.Replace("Φ", "F")
    End If
    If GreekName.Contains("χ") Or GreekName.Contains("Χ") Then
        GreekName.Replace("χ", "X")
        GreekName.Replace("Χ", "X")
    End If
    If GreekName.Contains("ψ") Or GreekName.Contains("Ψ") Then
        GreekName.Replace("ψ", "PS")
        GreekName.Replace("Ψ", "PS")
    End If
    If GreekName.Contains("ω") Or GreekName.Contains("Ω") Then
        GreekName.Replace("ω", "W")
        GreekName.Replace("Ω", "W")
    End If


    Return GreekName.ToString
End Function

Replace不是“就地”替换，而是返回一个值。必须将返回值赋给变量

GreekName = GreekName.Replace("ω", "W")

请注意，您不必事先测试替换字符的存在性。如果找不到字符，它将不执行任何操作。

替换不是“就地”替换，而是返回一个值。必须将返回值赋给变量

GreekName = GreekName.Replace("ω", "W")

请注意，您不必事先测试替换字符的存在性。如果找不到字符，它将不执行任何操作。

替换不是“就地”替换，而是返回一个值。必须将返回值赋给变量

GreekName = GreekName.Replace("ω", "W")

请注意，您不必事先测试替换字符的存在性。如果找不到字符，它将不执行任何操作。

替换不是“就地”替换，而是返回一个值。必须将返回值赋给变量

GreekName = GreekName.Replace("ω", "W")

---

请注意，您不必事先测试替换字符的存在性。如果找不到字符，它就什么也不做。

如果它解决了您的问题，请不要忘记将答案标记为已接受（答案旁边的复选标记）@FrozenBlade-“字符串是不可变的”-这就是为什么您不能替换字符串中的值。@MattWilko我理解我的错误。现在程序运行了，我继续开发。再次感谢如果它解决了您的问题，请不要忘记将答案标记为已接受（答案旁边的复选标记）@FrozenBlade-“字符串是不可变的”-这就是为什么您不能替换字符串中的值。@MattWilko我理解我的错误。现在程序运行了，我继续开发。再次感谢如果它解决了您的问题，请不要忘记将答案标记为已接受（答案旁边的复选标记）@FrozenBlade-“字符串是不可变的”-这就是为什么您不能替换字符串中的值。@MattWilko我理解我的错误。现在程序运行了，我继续开发。再次感谢如果它解决了您的问题，请不要忘记将答案标记为已接受（答案旁边的复选标记）@FrozenBlade-“字符串是不可变的”-这就是为什么您不能替换字符串中的值。@MattWilko我理解我的错误。现在程序运行了，我继续开发。再次感谢