RegRead & Get Windiws OS VB6 Code

Code:

Public Function RegRead(Path As String) As String
    On Error Resume Next
    Dim ws As Object
    On Local Error GoTo ErrHandler
    Set ws = CreateObject("WScript.Shell")
    RegRead = ws.RegRead(Path)
    Exit Function
ErrHandler:
    RegRead = ""
End Function

Public Function OS() As String
    Dim i As Object
    Dim osi As String
    osi = StrReverse("emaNtcudorP\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH")
    OPS = RegRead(osi)
End Function