Dim oInfo As System.Diagnostics.ProcessStartInfo = New _
   System.Diagnostics.ProcessStartInfo("net", "user")
        oInfo.UseShellExecute = False
        oInfo.ErrorDialog = False
        oInfo.CreateNoWindow = True
        oInfo.RedirectStandardOutput = True
        Dim p As Process = System.Diagnostics.Process.Start(oInfo)
        Dim oReader As System.IO.StreamReader = p.StandardOutput
        rtb.Text = oReader.ReadToEnd()
        rtb.Text = rtb.Text.Replace("Ž", "Ä")
        rtb.Text = rtb.Text.Replace("š", "Ü")
        rtb.Text = rtb.Text.Replace("™", "Ö")
        rtb.Text = rtb.Text.Replace("„", "ä")
        oReader.Close()

Gru? monondh