Non lo metto in dubbio ... proprio per questo, ti chiedo ancora ... a cosa servono le righe

Select Case Environment.OSVersion.Platform
End Select

??