Glad it fixed it <smile>. Jeff ----- Original Message ----- From: Geoff Smith To: programmingblind@xxxxxxxxxxxxx Sent: Thursday, October 08, 2009 8:50 AM Subject: Re: VB6 OverFlow problem Hello Jefff, That was very helpful and painless <G>. Wish I'd thought of that, before shouting. Thanks. Geoff Email: gc.smith@xxxxxxxxxx ----- Original Message ----- From: Jeff Bishop To: programmingblind@xxxxxxxxxxxxx Sent: Thursday, October 08, 2009 3:59 PM Subject: Re: VB6 OverFlow problem Change the data types from Integer to Long and see if that resolves your issue. Jeff ----- Original Message ----- From: Geoff Smith To: programmingblind@xxxxxxxxxxxxx Sent: Thursday, October 08, 2009 7:55 AM Subject: VB6 OverFlow problem Hello All, I realise there aren't many people using VB6 these days, but can anyone help me with this irretating problem? In short blocks of text in an MSAccess memo type field I can use the code below to search text, but anything longer than 3/4 thousand characters, I'm getting an overflow message with an error 6. When I click on the OK button, the programme bombs. The Code is: Private Sub mnuNavSearchText_Click() Dim strMainString As String Dim intLengthOfString As Integer Dim intWheresTheString As Integer ' Assigning the variables strMainString = txtTB(4) ' String1, String to be searched intLengthOfString = Len(strMainString) ' Length of string to be searched M_strSearchFor = InputBox$("Search for Text, ", , "") intWheresTheString = InStr(strMainString, M_strSearchFor) ' Arguements employed If intWheresTheString Then ' If string found txtTB(4).SelStart = intWheresTheString - 1 'Start the selection and txtTB(4).SelLength = Len(M_strSearchFor) ' set selection length MsgBox "String Found" ' Notify user of successful result Else ' or MsgBox "String not found" ' notify user of the resulting failure txtTB(4).SetFocus End If End Sub The Outlook Express window seems to have made a bit of a mess of the code, spilling some lines onto two lines. Can anyone see what is happening? I'd be very grateful for any help. Geoff Email: gc.smith@xxxxxxxxxx ---------------------------------------------------------------------------- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.421 / Virus Database: 270.14.7/2422 - Release Date: 10/08/09 06:39:00