Use the below code to loop through all versions, and check the version's name in a given product:
Dim blnAvailable As Boolean = False
Dim numProductID As Integer '' Need to assign product id here
Dim dtVersions as DataTable = VersionsBLL.GetByProduct(ProductID, Session("LANG"), 0)
For Each rw as DataRow in dtVersions.Rows
If LCase(rw("V_Name")) <> "none" Then
blnAvailable = True
Exit For
End If
Next
Then you need to check for the variable blnAvailable to decide either to display the message or not.
Is that what you are looking for ?