Const seek As String = "\"
Dim sKey As String = "Software\Microsoft\WAB\WAB4\Wab File Name"
Dim sPath As String = sKey.Substring(0, sKey.Length - StrReverse(sKey).IndexOf( _
  seek) - seek.Length)
MessageBox.Show(sPath)