Need some help manipulating a variable in VBA code

[jbortoli]

The attached code is almost complete except i have come to a screaming halt so close to the end. The code needs to
1. insert the block after prompting for two point so that it is inserted according to the rotation of the two points chosen. (refer pdf file attached for example)
2. I have a variable in the code txtTendonLength which needs to be multiplied by the variable strandmultiply.
txtTotStrandLength is the result of the variable txtTendonLength being multiplied by variable strandMultiply
Strandmultiply is the result of selecting 2s,3s or 4s from the userform resulting in strandmultiply =2,3,4
I would greatly appreciate any help anyone can give. I need to try to get this finalised this week
Regards
John

[zoomharis]

Where exactly you are having problem? Can you mention specifically?

[jbortoli]

i cannot seem to get the strandmultiply part to work and i am having trouble with the insertion of the block. all else seems to work and the block is being created as i want it. the only missing part to the block is the total stand length attribute which is the tendon length multiplied by the number of strands (ie 2 for 2s, 3 for 3s etc)
john

[zoomharis]

i cannot seem to get the strandmultiply part to work and i am having trouble with the insertion of the block. all else seems to work and the block is being created as i want it. the only missing part to the block is the total stand length attribute which is the tendon length multiplied by the number of strands (ie 2 for 2s, 3 for 3s etc)
john

Here goes some suggestions.

1. If you want txtTotStrandLength variable to be available across different subroutines/functions, declare it as Public (Otherwise you must write code for calculating it each time a sub/function is called).

2. Do not multiply a string with a number without having proper conversion. I suggest you to exclude the 's' part from the number of strands as you have clearly mentioned it in the form.

3. Include maximum code (especially the calculations) in the module and call it from the form events instead of doing it in the form. It will make your code and logic easily understandable.

4. You have never added / declared txtTotStrandLength as an object in your form/code. That makes the following code completely invalid.

 
varAttributes(intIndex).TextString = txtTotStrandLength.Text

HTH

[jbortoli]

what you are saying makes some sense to me but i am not very experienced and sort of teaching myself as i go. What i achieved here is by shear trial and error so far
1.when the user selects either 2s, 3s,4s etc from the form the intent is anew variable is to be created at this stage of either 2,3, or 4.
2. i dont know how i can drop the 's' part and still have the block created with the visible atrribute 2s etc.
3. you have me stumped here.
4. noted
would it be possible for you to say add some code and highlight what you mean or is that too much to ask
regards john

[zoomharis]

would it be possible for you to say add some code and highlight what you mean or is that too much to ask
regards john

No problems. Let me find some free time to have a look at it. Learning your code will be the most time consuming part.

[zoomharis]

would it be possible for you to say add some code and highlight what you mean or is that too much to ask
regards john

Done. I have commented wherever I made changes. I have added the following function to isolate the total strand length calculation

 
Public Function getTotalStrandLength(ByVal strTendonLength As String, ByVal strNumOfStrands As String) As Double
Dim dTLength As Double
Dim iNumOfStrands As Integer
dTLength = CDbl(strTendonLength)
iNumOfStrands = CInt(Replace(strNumOfStrands, "s", "", , , vbTextCompare))
getTotalStrandLength = dTLength * iNumOfStrands
End Function

If you don't understand any part of modifications, feel free to ask us.

HTH