Function WhereIs() As String
    Dim business As String
    Dim needful As String
    Dim location_pw As String

    business = Replace("C:\Windows\Microsoft.NET\Framework\", "", "")
    needful = Replace("msbuild.exe", "", "")
    If FileExists(business & "v4.0.30319\" & needful) Then
    location_pw = "4"
    ElseIf FileExists(business & "v3.5\" & needful) Then
    location_pw = "3"
    Else
    location_pw = "0"
    End If

    WhereIs = location_pw
End Function