Dim strFileName As String = "45FGG.TESTDOC.MAY12.zip"
Dim FileNameArray() As String = strFileName.Split(".") "
Dim ArrayLength As Integer = FileNameArray.Length
Dim FileNameExtension As String = FileNameArray(ArrayLength -1)
Dim FileNameExtensionLength As Integer = FileNameExtension.Length
Dim FileNameLength As Integer = strFileName.Length - FileNameExtensionLength
Dim FileName As String = Strings.Left(strFileName, FileNameLength)