DIm sh,via
CRLF = Chr(13) & Chr(10)

set sh = CreateObject("WScript.Shell")

on error Resume Next
via = "<neni>"
via = sh.RegRead("HKLM\SOFTWARE\Via4in1Driver\4in1Version") 

MsgBox " " + CRLF + " Ve Vašem počítači je nainstalován VIA 4in1 - verze Driveru: " + via + ".              " + CRLF + " " + CRLF + "                                                     		    Zdraví Vás InMiBr"