Vb.net 解析\&引用；（反斜杠）并将域转换为大写

我想采取这样的措施：

domainB\bsmith
domainA\djones

DOMAINA\bsmith
DOMAINB\djones

并将其转换为如下内容：

domainB\bsmith
domainA\djones

DOMAINA\bsmith
DOMAINB\djones

这是迄今为止我所掌握的代码：

 arrUsers(I) = arrUsers(I).Substring(0, arrUsers(I).IndexOf("\")).ToUpper + arrUsers(I).Substring(arrUsers(I).IndexOf("\"))

---

我希望这是一个更容易阅读和理解。是否有更好的更可持续的方法来完成此任务？

使用

String。拆分
并重新组合：

Dim parts() As String = arrUsers(I).Split("\"C)
arrUsers(I) = parts(0).ToUpper() + "\" + parts(1)

这就是我想要的…更干净。